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(4) 1 FORSENCODE_MO = ENCODE OBJECT=-FORMATTED 
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$ ; FACILITY: FORTRAN Support Library - user callable 

; ABSTRACT: | 
This module contains the entry point for the FORTRAN 
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0000 ENCODE OBJECT-FORMATTED 1/0 statement. It is simply 
0000 a call to FORS$IO_BEG with bits in RO which describe the 
3298 parameter List. FORS$I0_BEG interprets the parameters. 
0000 : ; MAINTENANCE NOTE : . 
$44 The transfer vector (RTLVECTOR+ALLGBL) must have the following: 
0000 . TRANSFER FORSENCODE_MO 
0000 MASK F 0 
Bo08 BR FORSENCODE_MO+2 
$009 This puts the correct mask in entry vector, that is FORSS$IO_BEG entry mask. 
0000 Furthermore this module must only use RO and R 
43 since any other register might not be in the entry mask for FORSS$IO_BEG. 
4 : ; ENVIRONMENT: User access mode; mixture of AST level or not 
4 : ; AUTHOR: Richard B. Grove, CREATION DATE: 28-May-78 
9464 ; ; MODIFIED BY: 
0000 


. Hastings, 29-July-78 
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§ -SBTTL HISTORY ; Detailed Current Edit History | 


nn 


; Edit History for Version 1 


Add comment about vectors. TNH 23-June-78 
Pass arg in RO, not ROR, add comments. TNH 29-July-78 
Update version number and copyright notice. = 1B-nov-78 
Change statement t pe symbols to be Is $K...__JBS 11-DEC-7 
Add PSECT directive. JBS 22-DEC-78 
sl FORSREAD_KO, FORSREWRITE SF, FORSREWRITE_SO, 
FORSREAD_IF, FORSREAD_10, FORSWRITE_IF, FORSWRITE_10, 
FORSREWRITE_SU, 

SBL e-Nay-1979 
Remove all entry potogs that need object time formatting, 
pete them in FORSENTRY_OB8J so that we can arrange to 

oad the forage compiler only when it is needed. 

JBS 26-JUN-1979 
1-007 = Remove entry point FORSENCODE_MF; we will code a new module 
for it and FOR$$I10_BEG, to see how much I/0 initiation time 
improves. JBS 02-JUL-1979 
1-008 = Do Likewuse for FORSREAD_DU and FORSWRITE_DU. JBS 03-JUL-1979 
1-009 = Remove all entry points and add FORSENCODE_MO; each entry 
point gets its own module do we can selectively load 
the necessary UDF and REC modules. JBS 09-JUL-1979 
1-010 - New parameter format for FORSS$IO_BEG. SBL 5-Dec-1979 
1-011 = Change BRW FORS$IO_BEG+2 to JMP G*FORSSIO_BEG+2. JAW 21-Feb-1981 
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1-011 DECLARATIONS 6-SEP=1984 $3385 :98 EFORRTL. SRCIFORENCOMO.MAR:1 | °° 3) Tat 
8 5 ~SBTTL DECLARATIONS 
0 5 $ 
0 8 ; INCLUDE FILES: 
00 9 ; 
000 0 
444 91 SFORPAR ; Define inter-module FORTRAN symbols 
000 35 SISBDEF ; Define statement type symbols 
000 2 
4 94 ; 
000 95 ; EXTERNAL SYMBOLS: 
4 89 ; 
00 9 
0000 98 -DSABL GBL ; Declare all external symbols 
a4 199 - -EXTRN FORSSIO_BEG ; common 1/0 statement processing 
0000 101 ; The eat references are to make sure the necessary UDF and REC 
0000 136 ; modules sre loaded. These are the routines which are called through 
st nS 3; the dispatch tables in FORSSDISPAT. 
0000 105 -EXTRN FORSSUDF _WFO, FORSSUDF _WF1, FORSSUDF WFO 
9000 196 : TEXTRN FORSSRECWMFO, FORSSREC_WMF1, FORSSREC_WMF9 
44 198 ; The following reference makes sure the format compiler is loaded. 
0000 110 -EXTRN FORSSFMT_COMPIL 
0000 111 
0000 Me : 
0000 113 ; MACROS: 
0000 114; 
0000 115; NONE 
0000 116; 
0000 117 ; PSECT DECLARATIONS: 
0000 118; 
0000 119 
wean 8 1$¢ -PSECT _FORSCODE PIC,USR,CON,REL,LCL,SHR,EXE,RD,NOWRT,LONG 
0000 156 $ 
0000 123 ; EQUATED SYMBOLS: 
0000 124; 
0000 125 
0000 126 
0000 127; 
0000 128 ; OWN STORAGE: 
0000 129; 
B58 130 ; NONE 
000 131; 
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~SBTTL FORSENCODE_MO - ENCODE OBJECT-FORMATTED 


344 
; FUNCTIONAL DESCRIPTION: 


Initialize the FORTRAN 1/0 ee to perform 
a ENCODE OBJECT-FORMATTED 1/0 statement. 


CALLING SEQUENCE: 


CALL FORSENCODE_MO (char_cnt.rlu.v Hs 5 pp ccmhetall usr_buf adr.wt.ra 
, err_adr.j.r C7 end_ adr.j.rJJ) 


INPUT PARAMETERS: 


unit.rl.v Logical unit number 
format_adr.rt.r format strin taeeds compilation) 
usr_buf_adr.wt.ra adr. of user’s buffer 
erf_adr.j. rl optional ERR= address 
end_adr.j.rJ optional END= address 


IMPLICIT INPUTS: 

NONE except those used by FORS$$I0_BEG. 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

NONE except those left by FORSSIO_BEG. 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 

NONE except those of FORS$IO_BEG. 


oop FORSENCODE MO:: .MASK renee ie BEG 
50 0108 8F C MOVZWL  #ISBSK_ST_TY_WMF+ 

<1aFORSV 0B) FMT>, RO : Statement type 
00000002'GF 17 JMP 6 FORSS1O _BEG+2 : branch past call mask 
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Symbol table 6-SEP=1984 10:55:04 CFORRTL.SRCJFORENCOMO.MAR; 1 
FORSSFMT_ COMPIL teresere § §=6X = =600 
FORS$10 BEG seeeeere =X =O 
FORSSREC_WMFO eexeneee =X 00 
FORSSREC_WMF 1 tereeree x 8 
ORSSREC_WMF9 eeeeerre =X 0 
FORSSUDF _WFO teeneree = § 6X 8? 
FORSSUDF _WF 1 teeeeere =X 60) 
FORSSUDF WFO teeeeere =X Bt 
FORSENCODE MO 00000000 RG 1 
FOR$V_OBJ = 00000008 
ISBSK_ST_TY_wWMF = 00000008 

wre e ee en eee ee ens + 

: Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
- ABS. 00000000 < 0.) 00 ¢ QO.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
-FORSCODE 00000000 ¢«¢ 13.) O1¢ 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 

(unntirnimemennenrnmnnmnl 
: Performance indicators ! 

Phase Page faults CPU Time Elapsed Time 
Initialization 29 00:00:00.08 00:00:00.51 
Command processing 118 00:00:00.63 00:00:03.98 
Pass 1 128 00:00:01.27 BO 80 Be 8 
Symbol table sort 0 00:00:00.19 00:00:00.3 
Pass 2 56 00:00:00.53 00:00:01.97 
Symbol table output 3 00:00:00.02 00:00:00.06 
Psect synopsis output 2 00:00:00.02 00:00:00.05 
Cross-reference output 0 00:00:00.00  00:00:00.00 
Assembler run totals 338 00:00:02.75 00:00:11.82 
The working set Limit was 1050 pages. 


6710 bytes (14 pages) of virtua 
There were 20 


memory were used to buffer the intermediate cod 


pages of symbol table space allocated to hold 1 


8 non-local and 0 


182 source lines were read in Pass 1, produc ing 8 object records in Pass 2. 
9 pages of virtual memory were used to define 


macros. 


e. 
local symbols. 


¢eocccesceooeeescecsoscesee$ 


! Macro Library statistics : 
geome ne none er ome ew eer 


Macro Library name Macros defined 


-$255$0UA28: CFORRTL.OBJIJFORRTL.MLB; 1 ; 
$255$DUA28: CSYSLIBJSTARLET.MLB;2 
TOTALS (all Libraries) 2 


183 GETS were required to define 2 macros. 


There were no errors, warnings or information messages. 
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